home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 February / Software of the Month - Ultimate Collection Shareware 258.iso / pc / Lg.dir / 00001_Script_1 next >
Text File  |  1998-12-07  |  5KB  |  205 lines

  1.  
  2. on startMovie
  3.   
  4.   global  LINECLICK 
  5.   set LINECLICK to 1
  6.   set the forecolor of member "progDisplay" to 255 -- set text to black
  7.   set the forecolor of line 1 of member "progDisplay" to 0
  8.   --* This declares the variables for the finger cursor. *
  9.   
  10.   global FINGER, FINGERMASK,MAGNIFY, MAGNIFY2, MAGNIFYMASK
  11.   set FINGER to the memberNum of member "Finger1"
  12.   set FINGERMASK to the memberNum of member "Finger2"
  13.   set MAGNIFY to the memberNum of member "MAGGLASS"
  14.   set MAGNIFY2 to the memberNum of member "MAGGLASS2"
  15.   set MAGNIFYMASK to the memberNum of member "MAGGLASS1"
  16.   glowClear()
  17.   
  18. end
  19.  
  20.  
  21. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  22.  
  23. on glow WHICHSPRITE, TRUEORFALSE
  24.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  25. end glow
  26.  
  27. --* TURN OF ALL GLOWS ON START
  28. on glowClear
  29.   repeat with i = 20 to 36
  30.     glow(i)
  31.   end repeat
  32.   glow(47)
  33.   glow(50)
  34.   glow(52)
  35. end
  36.  
  37. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  38.  
  39. on textglow WHICHMEMBER, COLORNUMBER
  40.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  41. end textglow
  42.  
  43.  
  44. --* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
  45. --on mouseEnter
  46. --  if not count(the windowList) then
  47. --    doRollover(52)
  48. --  end if
  49. --end
  50. --
  51. --
  52. --on mouseLeave
  53. --  if not count(the windowList) then
  54. --    doRollout(52)
  55. --  end if
  56. --end
  57.  
  58.  
  59.  
  60. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  61.  
  62. on openMIAW MYWINDOW
  63.   set myRect=the rect of window MYWINDOW
  64.   set myStage=the rect of the Stage
  65.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  66.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  67.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  68.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  69.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  70.   set the rect of window MYWINDOW=myNewRect
  71.   set the windowType of window MYWINDOW to 2
  72.   open window MYWINDOW
  73. end openMIAW
  74.  
  75.  
  76. --* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *
  77.  
  78. on doRollover NUMSPRITE,NUMSOUND
  79.   glow(numsprite,TRUE)
  80.   global finger,fingermask
  81.   cursor[finger,fingermask]  
  82.   case  NUMSOUND of      
  83.     1: puppetsound 1, "Scissors"
  84.     2: puppetsound 1, "Butane"
  85.     3: puppetsound 1, "Scissors"
  86.     4: puppetsound 1, "Scissors"
  87.   end case 
  88.   updatestage
  89. end
  90.  
  91. on doRollover3 NUMSPRITE,NUMSOUND
  92.   glow(numsprite,TRUE)
  93.   global MAGNIFY, MAGNIFYMASK
  94.   cursor [MAGNIFY,MAGNIFYMASK]
  95.   updatestage
  96.   case  NUMSOUND of
  97.       
  98.     1: puppetsound 1, "Scissors"
  99.     2: puppetsound 1, "Butane"
  100.     3: puppetsound 1, "Scissors"
  101.     4: puppetsound 1, "Scissors"
  102.   end case  
  103. end
  104.  
  105.  
  106.  
  107. on doRollover4 NUMSPRITE,NUMSOUND
  108.   glow(numsprite,TRUE)
  109.   global MAGNIFY2, MAGNIFYMASK
  110.   cursor [MAGNIFY2,MAGNIFYMASK]
  111.   updatestage
  112.   case  NUMSOUND of
  113.       
  114.     1: puppetsound 1, "Scissors"
  115.     2: puppetsound 1, "Butane"
  116.     3: puppetsound 1, "Scissors"
  117.     4: puppetsound 1, "Scissors"
  118.   end case  
  119. end
  120.  
  121.  
  122.  
  123.  
  124. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  125. on doRollout numsprite
  126.   glow(numsprite,FALSE)
  127.   cursor 0
  128. end
  129.  
  130. --* PLAYS A CLICK SOUND
  131.  
  132. on doClick
  133.   puppetsound 1,"close"
  134.   updateStage
  135. end
  136.  
  137.  
  138. on doZoomout numsprite,soundwait
  139.   puppetsound 1, "close"  
  140.   if soundwait then
  141.     repeat while soundbusy (1)
  142.     end repeat
  143.     set soundwait to FALSE
  144.   end if
  145.   glow(numsprite, TRUE)
  146.   global MAGNIFY2, MAGNIFYMASK
  147.   cursor [MAGNIFY2,MAGNIFYMASK]
  148.   updatestage
  149. end
  150.  
  151. on doZoomin numsprite,soundwait
  152.   puppetsound 1, "close"  
  153.   if soundwait then
  154.     repeat while soundbusy (1)
  155.     end repeat
  156.     set soundwait to FALSE
  157.   end if
  158.   glow(numsprite, TRUE)
  159.   global MAGNIFY, MAGNIFYMASK
  160.   cursor [MAGNIFY,MAGNIFYMASK]
  161.   updatestage
  162. end
  163.  
  164.  
  165. on setpath
  166.   Global SETUPPATH95,LINECLICK
  167.   
  168.   case LINECLICK of
  169.       
  170.     1:set SETUPPATH95 to "@\internet\atguard\atguard.exe"
  171.       
  172.     2:set SETUPPATH95 to "@\games\Army\Armyman.exe"
  173.       
  174.     3:set SETUPPATH95 to "@\internet\Browse98\setup.exe"
  175.       
  176.     4:set SETUPPATH95 to "@\games\Deadlock\dl2_pcg.exe"
  177.       
  178.     5:set SETUPPATH95 to "@\utility\DragStrip\Dssetup.exe"
  179.       
  180.     6:set SETUPPATH95 to "@\utility\Elbow\Setup.exe"
  181.       
  182.     7:set SETUPPATH95 to "@\edu\Electric\Electricmind.exe"
  183.       
  184.     8:set SETUPPATH95 to "@\business\ibase\ib20eng.exe"
  185.       
  186.     9:set SETUPPATH95 to "@\children\Kian\kiandemo.exe"
  187.       
  188.     10:set SETUPPATH95 to "@\utility\MMagic\Mmagic.exe"
  189.       
  190.     11:set SETUPPATH95 to "@\business\Presentation\pg_share.exe"
  191.       
  192.     12:set SETUPPATH95 to "@\business\Virtual\virtualproposaldemo.exe"
  193.       
  194.     13:set SETUPPATH95 to "@\dtp\XARA3D\xara3d2n.exe"  
  195.       
  196.     14:set SETUPPATH95 to "@\dtp\Webster\web2full.exe" 
  197.       
  198.     15:set SETUPPATH95 to "@\dtp\Webstyle\style110.exe"  
  199.       
  200.   end case
  201.   
  202. end
  203.  
  204.  
  205.